home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].zip / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].do / EDIT.int < prev    next >
Text File  |  1996-12-24  |  1KB  |  29 lines
  1. 32580 REM  *************************
  2. 32581 REM  *                       *
  3. 32582 REM  *   PROGRAM EDIT AID    *
  4. 32583 REM  *     ALAN G. HILL      *
  5. 32584 REM  *                       *
  6. 32585 REM  *         EDIT          *
  7. 32586 REM  *                       *
  8. 32587 REM  *  COPYRIGHT (C) 1981   *
  9. 32588 REM  *    MICRO INK, INC.    *
  10. 32589 REM  * CHELMSFORD, MA 01824  * 
  11. 32590 REM  *  ALL RIGHTS RESERVED  *
  12. 32591 REM  *                       *
  13. 32592 REM  *************************
  14. 32593 REM 
  15. 32600 DIM A$(30)
  16. 32610 INPUT "FIND?",A$:CALL -936:IF A$(1,1)="@" THEN 32630:KK= LEN(A$):FOR I=1 TO KK: POKE 911+I, ASC(A$(I,I)):NEXT I
  17. 32620  POKE 12,KK-1:GOTO 32650
  18. 32630 A$=A$(2, LEN(A$)):KK= LEN(A$):FOR I=1 TO KK STEP 2:J= ASC(A$(I,I))-176:JJ= ASC(A$(I+1,I+1))-176
  19. 32640 IF J>9 THEN J=J-7:IF JJ>9 THEN JJ=JJ-7: POKE 912+I/2,J*16+JJ:NEXT I: POKE 12,KK/2-1
  20. 32650  POKE 10,912 MOD 256: POKE 11,912/256
  21. 32660 CALL 768
  22. 32670 IF  PEEK (18)>127 THEN 32730:LINE= PEEK (17)+ PEEK (18)*256
  23. 32680 LIST LINE
  24. 32690 IF  PEEK (37)>18 THEN 32730
  25. 32700 CALL 846
  26. 32710 GOTO 32670
  27. 32720 CALL -936:GOTO 32700
  28. 32730 END 
  29.